home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Magnum One
/
Magnum One (Mid-American Digital) (Disc Manufacturing).iso
/
d18
/
turbotut.arc
/
READARRY.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1989-06-30
|
617b
|
21 lines
PROGRAM read_into_an_array;
VAR index : INTEGER;
place : ARRAY[1..10] OF CHAR;
BEGIN
FOR index := 1 TO 5 DO
BEGIN
WRITE('Enter up to 10 characters ');
READLN(place);
WRITELN('The data you entered was (',place,')');
END;
END.
(* Note; This file will not compile properly
with TURBO Pascal 2.0. It will work as
stated with TURBO Pascal 3.0 and with most
other compilers, since it is written in
standard Pascal. To make it work with TURBO
Pascal 2.0, change the ARRAY in line 4 to
a STRING[10]. *)